<%
 '
 ' Copyright 2007 Liu, Xiaokang <4341322@gmail.com>
 ' Blog <http://www.ioio.name/>
 ' 
 ' This file is part of JOS(Judge Online System).
 ' You can see this project at <http://code.google.com/p/judgeonline/>
 ' 
 ' JOS is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as
 ' published by the Free Software Foundation; either revision 3 of the License, or (at your option) any later revision.
 ' 
 ' JOS is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
 ' 
 ' You should have received a copy of the GNU General Public License along with JOS. if not, see
 ' <http://www.gnu.org/licenses/>.
 '
%>
<%
    Dim ServerPath,ShellTime,CodeError
	ServerPath	=	"E:\jos\"
	ShellTime	=	250
	CodeError	=	"|"

	Dim objDom,objtofind
	set objDom=server.CreateObject("Microsoft.XMLDom") 
	objDom.load(ServerPath+"Config.xml")
	
	set objtofind=objdom.documentElement.SelectSingleNode("//Config") 
	
	Dim DataHost,DataName,DataUser,DataPass
	
	DataHost	=	objtofind.GetAttributeNode("DataSource").NodeValue
	DataName	=	objtofind.GetAttributeNode("DataName").NodeValue
	DataUser	=	objtofind.GetAttributeNode("User").NodeValue
	DataPass	=	objtofind.GetAttributeNode("Password").NodeValue
	
	set objtofind=nothing	
	set objDom=nothing
	
%>
